home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 January / 1986-01.d64 / highlighter 64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  672b  |  15 lines
  1. 6 n=198:p=631:poke53281,6
  2. 8 rem in line 6 for +4/16, n=239:p=1319:color0,7,4
  3. 10 print"[147]"chr$(14)chr$(8):print"[154]rem highlighter
  4. 12 [133]"program namecont";n$:[139]n$[178]""[167][153]"ononononon":[137]12
  5. 14 q$[178][199](34):[153]"loadloading ":[153]n$"load"q$n$q$",8
  6. 16 print"63994s=p[197](s)+p[197](s+1)*256
  7. 18 [153]"63995ifpval(s+4)=143tleft$?"q$"open"q$"pval(s+2)+pval(s+3)*256:t=s+4:go(NULL)63997
  8. 20 print"63996on-(s<>.)g[207]63994:?"q$"[147]"q$";:g[207]63999
  9. 22 [153]"63997t=t+1:ifpval(t)=.tleft$re(NULL)
  10. 24 print"63998on-(p[197](t)=32)g[207]63997:p[207]t+(t>s+5),18:re[212]
  11. 26 [153]"63999p(NULL)p,19:f(NULL)i=1to6:p(NULL)p+i,13:?63993+i:nval:p(NULL)p+i,154:p(NULL)n,8
  12. 28 print"?"q$"[159]highlighting"q$":n=198:p=631:s=43:g[207]63994
  13. 29 [143] in line 28 for +4/16, n=239:p=1319
  14. 30 [151]p,19:[129]i[178]1[164]8:[151]p[170]i,13:[130]:[151]n,9
  15.